home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 48 / MOBICLIC 48.ISO / pc / DATA / COMMUNS / MENUBD.DIR / 00040_Script_BOUCLES_SECONDAIRES < prev    next >
Text File  |  2002-07-23  |  952b  |  35 lines
  1. -- boucles secondaires
  2. global validMBD, rollMessBD, fermeMenuBD, ouvreMenuBD
  3. global  gNbStamps, gfirstStampTrackNo
  4. --------------------------------------------
  5. on exitFrame
  6.   if fermeMenuBD=1 then
  7.     fermerMenu
  8.   else
  9.     repeat with i=gfirstStampTrackNo to gfirstStampTrackNo + gNbStamps - 1
  10.       zeNoItem = i - gfirstStampTrackNo + 1
  11.       if rollOver(i) and validMBD[zeNoItem] =1 then
  12.         if i<>field "item" then
  13.           member("item").text = string(i)
  14.           rollMessBD = member("menuBDMsg").line[zeNoItem]
  15.           --          testImage i
  16.         end if
  17.         exit
  18.       end if
  19.     end repeat
  20.     rollMessBD = "nul"
  21.     --    testImage 1
  22.    
  23.   end if
  24. end
  25. --------------------------------------
  26. on testImage i
  27.   case(i>1) of
  28.     1:
  29.       zeNolabel = i - gfirstStampTrackNo + 2
  30.       go to frame label(string(zeNolabel))
  31.       
  32.     0: go "1"
  33.   end case
  34. end testImage
  35. ----------------------------------